home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / IntelliBots 1.0.1 / IntelliBots / IBots / movslow6.asm < prev    next >
Encoding:
Assembly Source File  |  1995-07-26  |  786 b   |  23 lines  |  [TEXT/IBot]
  1. ;******************************************************
  2. ;TITLE:        MOVSlOW6.ASM
  3. ;CREATED BY:   Intelligent Technologies
  4. ;DESCRIPTION:  Move the IBot
  5. ;NOTES:        This program was created to act as a training target
  6. ;Name             Date          Description
  7. ;---------------- ------------- -------------------
  8. ;ITI              July 22, 1995 created the program
  9. ;******************************************************
  10.  
  11.     .NAME    "MoveSlow6"
  12.  
  13.     COPR    #CHASSISMOVE,#40    ;move IBot forward 40 units
  14. Loop
  15.     MOVE    #4,R0                ;move value 4 into r0
  16.     COPR    #CHASSISMOVE,R0        ;move IBot distance(r0)
  17. Delay
  18.     COPR    #CHASSISTURN,#1350    ;turn IBot around 3 3/4 times
  19.     COPR    #CHASSISMOVE,#5        ;move IBot forward 5 units
  20.     DEC        R0                    ;subtract 1 from r0
  21.     JE        Loop                ;go to loop
  22.     JUMP    Delay                ;go delay again
  23.